home *** CD-ROM | disk | FTP | other *** search
/ c64.rulez.org / 2014.05.c64.rulez.org.tar / c64.rulez.org / pub / c64 / Scene / Old / z / Zahlenratespiel[D].lnx / zahlenratespiel (.txt)
Commodore BASIC  |  1999-09-30  |  462b  |  17 lines
  1. 1 rem zahlenratespiel
  2. 2 print "[147]"
  3. 5 input "zahlenobergrenze ";li
  4. 10 nm = int(li*rnd(1))+1
  5. 15 cn = 0
  6. 20 print "es kann losghen"
  7. 30 input "dein tp"; gu
  8. 35 cn = cn + 1
  9. 40 if gu > nm then print "meine zahl ist kleiner":print : goto 30
  10. 50 if gu < nm then print "meine zahl ist groesser":print : goto 30
  11. 60 if gu = nm then print "toll!!! sie haben die zahl erraten"
  12. 65 print "mit nur "; cn ; "versuchen.":print
  13. 70 print "wollen sie noch einmal (j/n)?";
  14. 80 get an$: if an$="" then 80
  15. 90 if an$ = "j" then 2
  16. 100 if an$ <> "n" then 80
  17.